// RealPlay Ltd  copyrights.
// This program is Open Source AsIs
// You may use it for all purposes, including commercial
// But!!!
// If you use any part of this code, you must state clearly
// both in your source file and in the Help|about of your program,
// that the origin program or code was built by RealPlay Ltd

// ***********************************************************************/
// *                                                                     */
// *        This unit is real tools Frame for  "Paint" Program           */
// *                                                                     */
// ***********************************************************************/

unit UPFrReal;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, Buttons;

type
  TFrRTool = class(TFrame)
    MP: TMediaPlayer;
    SBTrans: TSpeedButton;
    SB2None: TSpeedButton;
    procedure SBTransMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MPClick(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UPMain, UPRealLayers;
{$R *.dfm}

procedure TFrRTool.SBTransMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FPaint.FrTools1.ToolSelect(Sender);
end;

procedure TFrRTool.MPClick(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  DoDefault := false;
  FPaint.AniList.PlayAct(Button);
end;

end.
